ddt 20 august 1965 



d</r - / 



6000/ 






xx=0 






nsy=113 




low=.- 


-nsy- 


-nsy-1 


tst=.- 


-2 




est=.- 


-1 




low/ 




char 



char 


l+chj 


ar ma ac 


char 


1+char ml lo 


char 


1+char mm msk 


char 


11 


10000 


flex 


and 


020000 


flex 


lor 


040000 


flex 


xor 


060000 


flex 


xct 


100000 


flex 


jfd 


120000 


flex 


cal 


160000 


flex 


Jda 


170000 


flex 


lac 


200000 


flex 


lio 


220000 


flex 


dac 


240000 


flex 


dap 


260000 


flex 


dip 


300000 


flex 


dlo 


320000 


flex 


dzm 


340000 


flex 


add 


400000 


flex 


sub 


420000 


flex 


Idx 


440000 


flex 


isp 


460000 


flex 


sad 


500000 


flex 


sas 


520000 


flex 


mus 


540000 


flex 


dls 


560000 


flex 


jmp 


600000 


flex 


Jsp 


620000 


flex 


skp 


640000 


flex 


szs 


540000 


flex 


szf 


640000 


flex 


sza 


540100 


flex 


spa 


640200 


flex 


sma 


640400 


flex 


szo 


541000 


flex 


spl 


542000 



J<it ^ 



flex 


ral 


661000 


flex 


ril 


662000 


flex 


rcl 


663000 


flex 


sal 


665000 


flex 


sil 


666000 


flex 


scl 


667000 


flex 


rar 


671000 


flex 


rir 


672000 


flex 


rcr 


673000 


flex 


sar 


675000 


flex 


sir 


676000 


flex 


scr 


677000 


flex 


law 


700000 


flex 


lot 


720000 


flex 


tyl 


720004 


flex 


rrb 


720030 


flex 


cks 


720033 


flex 


Ism 


720054 


flex 


esm 


720055 


flex 


cbs 


720056 


flex 


eem 


724074 


flex 


lem 


720074 


flex 


rpa 


730001 


flex 


rpb 


730002 


flex 


tyo 


730003 


flex 


ppa 


730005 


flex 


ppb 


730006 


flex 


dpy 


730007 



flex elf 760000 

flex nop 760000 

flex opr 760000 

flex lap 760500 

flex stf 760010 

flex cla 760200 

flex hit 76o4oo 

flex cma 76IOOO 

flex clc 761200 

flex lat 762200 

flex cli 764000 
est, low 



AcltS 



lap=cla 100 
ioh=iot i 
cl 0=651600 
spq=650500 
szm=640500 



define 



define 



define 



define 



define 



define 



define 



senseswltch a 
szs lOxa 
term 



Initialize a,b 
law b 
dap a 
term 



Index a,b,c 
Idx a 
sas b 
Jmp c 
term 



listen 

cla+cll+clf 1-opr-opr 

szf 1 1 

Jmp .-1 

tyl 

terra 



swap 

swp 

term 



load a,b 
llo (b 
dlo a 
term 



setup a,b 
law 1 b 
dac a 
term 



define 



count a,b 
Isp a 
Jmp b 
term 



define 



define 



/<//y 



move a 


,,b 






lio a 








dlo b 








term 








clear 


a,b 






Inlt . 


2, 


a 




dzm 








index 


.-1, 


(dzm 


b 


term 









1, .-1 



Jc//^ ^ 



define 



dispatch lc,uc 
[lOOOxuc ]H-lc-[1001xlse J 
terminate 



lis. 


lio 


bki 


bkl. 


dio 


ch 




Jsp 


sbc 


Ise, 


Jsp 


icc 


Iss, 


clc 






dac 


Chi 


Isp, 


dzm 


wrd 




lac 


cun 


ssn. 


; c dip 


sgn 




dzm 


dnm 




dzm 


syl 


n2. 


dzm 
clc 


sym 




dac 


let 


isr. 


lio 


ski 




dio 


wea 




"^ init tax, 1 




listen 


psl. 


dio 


ch 




law 


dtb 




i>o add 


ch 




dap 


.+1 




lac 


• 


cas. 


XX 






and 


(777 


cad. 


add 


tls 




dap 


Isx 




sub 


arl 




-> spq 






Jmp 


i isx 




law 


syl 




lio 


let 




spi 


i 




Jsp 


evl 




Jmp 


ev4 




lac 


(flex U 




Jda tys 




Jmp 


Isp 


evl. 


dap 


evx 


eve. 


lac 


est 




dap 


ev2 



/or break addr 



Iwt 



/rar 9s or ell 



/last no-eval routine 



ev2. 


lac 


• 




sad 


sym 




Jmp 


ev3 




idx 


ev2 




index ev2. 




idx 


evx 


ev3. 


idx 


ev2 


evx. 


Jmp 


• 


ev4. 


dap 


sgn 




lac 


wrd 


sgn. 


XX 






dac 


wrd 




lio 


Chi 




spi 






lac 


iwt 


Isx, 


Jmp 


• 


n. 


rlr 


5s 




e 1 20 lac 


syl 




ral 


3s 




spi 


i 


cun. 


lor 


ch 




dac 


syl 




lac 


dnm 




ral 


2s 




add 


dnm 




I c ral 


Is 




spi 


i 




add 


ch 




dac 


dnm 




Jmp 


11 


1, 


dzm 


let 


11, 


lac 


sym 




ral 


6s 




^v add 


ch 




dac 


sym 




dzm 


Chi 




Jmp 


Isr 



/match foxmd 



eve, ev2 



/operator and syllable addr. 



/niimber routine 



/letter routine 



<iJr 7 



uc, 
ic, 

sqo, 
quo. 



ir. 



m. 



nl. 



err, 
erl. 



daq. 



com. 



lio re 

Jmp .+2 
lio psl 
dio cas 

:}-b Jmp Isr 

lac dnm 
Jmp nl+1 

lac sym 
Jmp nl 

law ac 
Jmp nl 

law io 

HO Jmp nl 

law msk 
Jmp nl 

lac iwt 

Jmp nl 

law est 
dzm chl 
dac syl 

^o Jmp n2 

lac (743521 
Jda tys 
law 7234 
Jda tys 
Jmp Isr 

law 7777 
and Iwt 

Jmp .+2 

lac loc 
dac dfl 



/upper case 
/lower case 

/« means take decimal number 

/" means take as flexo codes 

/A means accumulator 

/I means l-o 

/M means mask register 

/Q means last quantity 

/F means lowest register 

/? 

/ic, blk 

/D defines sym as address of Q 

/comma defines sym as loc 



def. 


lac 


let 


ski. 


sza 






Jmp 


err 




law pn2 


de. 


dap 


dex 




^r llo 


dfl 




Jsp 


evl 




Jmp 


df2 




law 


i 1 




add 


est 




dap 


est 




dlo 


1 est 




sub 


one 




.='2^.0 dap 


est 




llo 


sym 




dio 


1 est 




Jmp 


dex 


df2. 


dio 


i ev2 


dex. 


Jmp 


• 


del. 


Jmp pn2 


val. 


dac 


dfl 




'0 Jmp 


Iss 


eql. 


dac 


iwt 




Jsp 


let 




Jda 


opt 


Pn2, 


Jsp 


let 




Jmp 


iss 


arw. 


dac 


iwt 




Jsp 


let 




Jda pi 


arl. 


Jmp 


del 


oct. 


law 


odv 




Jmp 


.-H2 


dec. 


law 


ddv 




dap 


ops 




Jmp 


Ise 


smb. 


law 


Pl 




?^ Jmp 


.42 


ens. 


law 


opt 




dap 


pns 




Jmp 


Ise 


oad. 


law 


pvl 




Jmp 


f+2 


rad. 


law 


pev 




dap pal 


tls. 


Jmp 


ise 



/define symbol 



/end of no-eval routines, delete 
/open paren, sets up value for define 

/print octal integer 



/print as instruction 



/octal-decimal switch setup 



/symbolic-constant switch setup 



/octal-relative switch setup 



o/dr 7 



pis, 

min, 

unl, 
Isc, 

dot. 



tab, spl i /tab 

tas, 

ta3. 



lac 


cad 


Jmp 


ssn 


lac 


csu 


Jmp 


ssn 


Jmp 


ssn-1 


lac 


can 


Jmp 


ssn 


lac 


loc 


Jmp 


nl 


spl 


1 


dac 


ch 


dac 


iwt 


Jsp 


Ice 


Jda pad 


law 7221 


Jda tys 


dzm 


loc 


dap 


loc 


dap 


tas 


Jsp 


let 


lac 


1 tas 


dac 


Iwt 


Jda 


• 


Jmp pn2 


spl 


i 


dac 


i tas 


Idx 


loc 


Jmp 


ta3 


spl 


1 


dac 


1 tas 


law 


i 1 


add 


loc 


dap 


loc 


Jmp 


ta3 


law 


opt 


Jmp 


.+2 


law 


Pl 


dap 


tax 


lac 


iwt 


spl 




Jmp 


ta6 


lac 


wrd 


Jmp 


ta5 


spl 


i 


dac 


1 tas 


Jmp 


ta6 



ta5, 
ta6, 

tax, Jda . /pl, opt or Iwt 



bs, spl i /backspace 

bsl, dac i tas /used as dac 1 



fs, spi 1 /arrow up (forward space) 



bac, law opt /open bracket (bar-constant) 

Jmp .+2 
bas, law pl /closed bracket (bar-symbolic) 

bar. 



ucy, spl i /> means make corr, and open register 



c/dt (0 



cr. 



bk. 



tr. 



tr2. 



trl. 



xel. 



spl 


i 


dac 


1 tas 


dac 


iwt 


law 72 


Jda 


tys 


init tas, ch 


Jmp 


Iss 


spl 




Init bkl, ch 


Jmp 


Ise 







dap 


pre 


dap prd 


Idx 


prd 


lac 


tr 


dac 


ac 


isp 


ch 


jmp pr2 


Jsp 


trl 


dap 


pra 


law 


i 1 


add 


pre 


Jda pad 


law 


55 


Jda tys 


law 


ac 


Jmp 


ta5 


dac 


ovf 


dlo 


io 


Jsp 


sbc 


dzm 


fll 


szf 


1 


dac 


fll 


move 


I bki, 1 1 


lac 


bkl 


Jmp 


1 ovf 


XX 




nop 




dac 


ac 


Jsp 


trl 


Jmp 


Iss 



/break 



//print trap addr 



bkl 



'Jdr u 



pra. 


lio . 




dlo bix 




llo chl 




spi 


prl. 


law 




cma 




dac ch 




Jsp icc 




cks 




rll 2s 




spi 1 




Jmp .-3 




lac sbl 




lot 56 




sza 




esm 


pr3. 


lac fll 




sza 1 




elf 1 




clo 




lac ovf 




add ovf 




llo 1 bkl 




dlo bki 




lio (Jda tr 




dlo 1 bkl 




lio io 


pr2. 


lac ac 


blx. 


XX 


pre. 


Jmp . 


prd. 


Jmp . 


xec. 


dac xel 




law xel 


bgn. 


spi 




Jmp err 




dap bix 




lac pre 




dip bix 




Jmp prl 


eas. 


law eal 




Jmp ws 


nws. 


lac sk2 




dac wea 


wds. 


law wsl 


ws. 


spi 




Jmp err 




dap ws2 




Jsp lee 




dzm t2 




lac 11 




dac t 



/get instr, at new brk addr. 



/execute 
/begin 



/effective address search 



/not word search 



/word search 



ddt f i^ 



ws4, dzm syra 

dap t2 

lac i t2 

ws2, jrap . /eal or wsl 

eal, and cl 
sza 

jmp ea2 
law 7777 
and 1 t2 

wsl, xor wrd 

can, and rask /used as and 

wea, XX /sza or sza 1 

Jmp ws3 

wsb, law Ice 

pac, dap pax 
lac t 
jda pad 
law 2136 

4fcL Jda tys 
lac i t 
Jda iwt 
pax, Jsp . 

ws3, idx t /Index and skip over pgm 

sub ul 
szm 

Jmp Ise 
add ul 
sut) est 
sma 

Jmp Ise 
lac t 
Jmp ws4 

ea2, Idx sym 
sad c77 
Jmp ws3 
lac 1 t2 
Jmp ws4+l 

pbx, dac iwt 

Jsp let /print as bed 

Jda tys 
Jmp pn2 



JJi 0> 



vfy. 


Jsp icc 




lac rlD2 




Jmp .42 


rd. 


lac bsl 




dip vf4 




jsp sol 


vfl. 


lac t 




sub 11 




sub (dio 




spa 




jmp vf2 




add 11 




sub ul 




szm 




jmp vf2 




lac i la 


vf4. 


t 




jmp vf2 


vf3. 


jsp pac 




jsp let 




lac 1 la 




jda iwt 




jsp Ice 


vf2. 


idx t 




Idx la 




sad rbl 




jsp rbk 




jmp vfl 


iwt. 







dap pnx 




lac iwt 


pns. 


jda pi 


pnx. 


jmp . 


kil. 


law low 




dac est 




jmp ise 



/dac 1 or sad 1 



/pi or opt 



(/c/r- 



/y 



tbl, 
tbl. 



aoo 



tbn. 



tbm. 



ttl. 



re, 



Jsp sol 

lac i la 
and (202020 
ral Is 
xor 1 la 
xor c4 
ell 

rcl 6s 
sza 

Jrap .-2 
idx la 
sad rbl 
Jmp tbn 
lac 1 la 
dac dfl 
dio sym 
law i 1700 
and sym 
sas (char rs 
Jsp de 
idx la 
sad rbl 
Jsp rbk 
Jmp tbl 

Jsp let 
lac est 
Jda opt 

Jsp rbk 
Jrap tbm 

define 
feed n 
law 1 n 
Jda fee 
terminate 

Jsp lee 
listen 
rcr 9s 
rar 9 s 
sad c77 
Jmp pir 
sad (36 
Jmp pri 
sad (75 
Jmp pi2 
ral Is 
add (ftp 
Jda ttl 
idx ttl 
law ttl+1 
Jmp ttl+1 



/symbol table reader 



/permute zones 



/delete symbols of form Is, 2s,... 9s 



/skips rest of tape 



/title punch and punch format setup 



Jbk, spi /Jump block 



pul, dap fa /punch lower limit setup 

Jmp Iss 

pwd, spi i /punch word 



spi 




Jmp 


err 


add 


cj 


dac 


iwt 


feed 40 


llo 


iwt 


Jsp pbw 


feed 240 


Jmp 


ise 


dap 


fa 


Jmp 


Iss 


spi 


i 


dac 


i ta 


dac 


iwt 


lac 


tas 


dap 


fa 


dap 


la 


lac 


fa 


lor 


c77 


dac 


t 


sub 


la 


sma 




Jmp pb6 


idx 


t 


Jsp pbb 


lac 


t 


dap 


fa 


Jmp pb5 


lac 


la 


dac 


t 


idx 


t 


xct 


pb4 


Jmp pn2 



pun, dap la /punch any length block 

Pb5, 

lor c77 
dac t 
sub la 
sma 

/next hundred too high 

pb4, Jsp pbb /pbb or pur 



pb6. 



c^dr a 



zro. 



22?1, 



fee,t2. 



fex, 
sbc. 



sbx. 



law 


7777 


spl 




dac 


wrd 


and 


fa 


spl 




cla 




dac 


t 


sub 


est 


sma 




Jmp 


Ise 


add 


est 


sub 


wrd 


szm 




Jrap 


ise 


dzm 


1 t 


Idx 


t 


jmp 


zrl 







dap 


fex 


ell 




ppa 




Isp 


fee 


jmp 


.-2 


jmp 


• 


dap 


sbx 


dac 


sbl 


cks 




rll 


6s 


spl 


1 


dzm 


sbl 


Ism 




jmp 


• 



/zero registers below ddt 



/feed subroutine and temp storage, 



/sequence break status check 



y-^* 


dap 


PX 




Jsp 


pev 




sub 


cl 




spa 






Jmp ppk 




dac 


pi 




law 72 




Jda tys 




Jsp 


tou 




law 


71 




jda tys 


ppk. 


Jsp 


tou 




law 


72 




Jda 


tys 




and 


(760000 




sad 


prl 




Jmp plo 




rar 


Is 




sza 




csu. 


sub 
spa 


(320000 




Jmp plo 


pvl. 


lac 


Pl 




Jda 


opt 


px. 


Jmp 


• 


pev. 


dap 


pex 




lac 


est 




dap 


ea 




elf 


1 


eal. 


idx 


ea 


ea. 


lac 


• 




xor 


pl 




spa 






Jmp 


eix 




lac 


pl 




sub 


i ea 




spa 






Jmp 


eix 




szf 


i 1 




Jmp 


psw 




lac 


1 ea 




sub 


i ch 




szm 






Jmp 


psw 



/print instruction 



/law 



/used as sub 



/exit 

/symbol lookup subr 



c/<//- 



ti' 



ex. Index ea, eve, eal 

szf i 1 

jmp pvl 

lac pi 

sub 1 ch 

dac pi 

law i 1 

add ch 

dap ch 

lac 1 ch 

jda tys 

lac pi 
sk2, sza 1 

Jmp px 
pex, Jmp . 

pad, /print address 

dap px 

law 7777 

and pad 

dac pi 
pal, Jsp pev /pev or pvl 

lac (flexo + 

Jda tys 

Jmp pvl 

i:iL tys, /type symbol, etc. 

dap tyx 
setup opt, 3 

tyl, lac tys 

ral 6s 

dac tys 

and c77 

sza i 

Jmp tyc 

sad (72 

Jmp dns 

sad (74 

Jmp ups 

swap 
tyb, Jsp tou 
tyc, count opt, tyl 

lac Iwt 

cli 
tyx, Jmp . 



Joff ^^ 



dns. 


lac 


psl 




lio 


(72 


dnl. 


sad 


cas 




jmp 


tyc 




dac 


cas 




jmp 


tyb 


ups. 


lac 


re 




lio 


(74 




jmp 


dnl 


icc. 


dap 


lex 




law 7277 




jmp 


icl 


let. 


dap 


lex 




law 


7236 


icl, - 


jda 


tys 


lex. 


jmp 


• 


sol. 


rpb 




sol. 


rpb 






spl 


i 




jmp 


sol 


rbk. 


dap 


rbx 




Inlt rbl, buf 




dap 


la 




dzm 


Chi 




rpb 






dlo 


t2 




dlo 


t 




spl 






jmp 


Ise 




I'pb 






dlo 


eh 


rbO, 


rpb 




rbl. 


dlo 


• 




lac 


1 rbl 




add 


Chi 




dac 


chl 




Idx 


rbl 




index t2, eh. 




add 


chl 




add 


t 




rpb 






dlo 


chl 


rb2. 


sad 


1 .-1 


rbx. 


jmp 


• 




hlt+clc-opr 




jmp 


rbk+1 



/redundant case shift filter 



/skip over input routine 
/enter here 



/read a block into buffer 



/start block read 



rbO 



/used as sad i 



/checksum error stop 



Q^/> 



^7 



ttl. 







dap tt2 




lac i ttl 




repeat 3 cli 


tt2. 


Jmp . 


pur. 


dap pb2 


pul. 


llo fa 




Jsp pbw 




llo 1 fa 




Jsp pbw 




Index fa, t. 




Jmp pux 


pbb. 


dap pb2 




dzm t2 




llo fa 




Jsp pbw 




llo t 




Jsp pbw 


Pbl, 


llo 1 fa 




Jsp pbw 




Index fa, t, ] 




llo t2 




Jsp pbw 


pux. 


feed 5 


pb2. 


Jmp . 


pir. 


feed 40 




move 7754, t 




Inlt fa, 7751 




Jsp pur 


Pi2, 


llo 7775 




Jsp pbw 




law pbb 


Pll, 


dap pb4 




feed 30 




Jmp Ise 



/title punch subroutine 



rcl 6s ppa 



/punch read-In mode blocks 



pul 



/punch binary block format 



pbl 



/Jmp 7751 



o/o/r ^( 



/combined octal -decimal print subroutine 

opt, 

dap opx 
ops, init opl, odv /odv or ddv 

setup op2, 6 

stf 1 



opa, 

opb, 

ope, 
opl. 



opx, 
ddv, 

odv. 



dzm 


opd 




szf 


i 1 




Jsp 


tou 




jmp 


ope 




elf 


1 




dac 


opt 




idx 


opd 




lac 


opt 




lio 


opt 




sub 


• 




spi 


i 




sma 






Jmp 


opb 




lac 


opd 




lio 


opd 




sza 


i 




lio 


ddv+l 




idx 


opl 




count op2j 


, opa 


Jsp 


tou 




Jrap 


• 




decimal 100000 


100 




10 



100000 
100 



10000 1000 
1 octal 



ci, 10000 1000 

10 one, 1 



/dispatch table 



dtb. 


disp 


pis, pis 


/ 




disp 


n, quo 






disp 


n, sqo 






disp 


n, p"bx 






disp 


n, daq 






disp 


n, uni 






disp 


n, isc 






disp 


n, pul 






disp 


n, uc8 






disp 


n, fs 




wrd. 









sym. 









Chi, 









let. 









ch. 









loc. 











disp 


n, arw 






disp 


bar, err 






disp 


1, smb 






disp 


1, tbl 








disp 1, 


dec 




disp 


1, vfy 






disp 


1, wds 






disp 


1, xec 






disp 


1, rd 






disp 


1, zro 




syl. 











disp 


com, eql 




t. 









la. 


dio 








disp 


tab, tab 




fa. 


dio 







7- 





disp pwd, err 






disp 1, Jbk 






disp 1, kll 






disp 1, ttl 






disp 1, m 






disp 1, nws 






disp 1, oad 






disp 1, pra 






disp 1, q 






disp 1, rad 




bkl. 


opr 




sbl. 


-0 

disp min, pis 

disp def, bas 

disp err, err 

disp val, bac 



disp 1, a 




IIJ., 






disp 1, bk 






disp 1, ens 






disp 1, pun 






disp 1, eas 






disp 1, f 






disp 1, bgn 






disp 1, oct 






disp 1, ir 






disp Ic, ic 






disp dot, del 






disp uc, uc 






disp bs, bs 




dfl, 
/tit] 




disp cr, cr 

Le punch table 




ftp. 




004277 c4, 400000 


/space 




625151 514600 


/2 




224145 453200 


'^} 




141211 771000 
274545 453100 




/5 




354545 453000 


^^ 




010171 050300 


Or. 




324545 453200 


^P 




065151 513600 


^P 


tou. 


dap tox dio tot 
' ' cks ril 2s 
spi i Jmp .-3 
lio tot tyo-i 


/typeo 


tox. 


jmp . op2, 




opd,dnm, tot, 





/4o 



LfdT ^ 



/I 





364141 


413600 


/zero 


c77. 


000077 
224545 


000000 


// 




453000 


^^ 




010177 
37^040 


010100 


/t 




403700 


/.^ 




073060 


300700 


/v 




376014 


602700 


/w 




412214 


224100 


/x 




010274 
615141 


020100 


/y 




454300 


/z 


Plo, 


Jsp pev 


Jmp pal+l 






I4l4l4 


l4l400 


/= 


pbw. 


dap pby 


ppb 


/punch 1 word 




rcl 6s 


PPb 






rcl 6s 


ppb 






rcl 6s 


add t2 






dac t2 


Pby, 
403700 


jmp . 




2o4o4o 


/j 




771014 


224100 


/k 




774o4o 


4o4ooo 


/I 




770214 


027700 


/m 




770214 


207700 


/n 




364l4l 


413600 


^° 




771111 


110600 


% 




364151 


215600 




771111 


314600 


/r 


psw. 


llo ea 


dio ch 






stf 1 


jmp elx 






101010 


101000 


/- 




000041 


221400 


/) 




101074 


101000 


/+ 




001422 


410000 


/( 


prl. 


law pur 


Jmp pil 






761111 


117600 


/a 




774545 


453200 


^? 




364141 


412200 


/c 




774141 


413600 


/d 




77^545 


414100 


^^ 




770505 


010100 


/^^ 




364151 


513000 


^s 




771010 


107700 


/h 




004177 


410000 


A 




000001 


030000 


/close quote 




000060 


c J, 600000 


/. 




000003 


020000 


/open quote 


" .1 buf. 


buf+ioo/ 






ovf. 









ac. 









lo. 









msk. 


-0 






11, 









ul. 


7777 






i^^i constants 








start lis 









</(/r ay 



